home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / ffccflow / ffccflow.lha / ffccc+flow / ffccc / STSUMM.f < prev    next >
Encoding:
Text File  |  1992-07-31  |  1.9 KB  |  57 lines
  1.       SUBROUTINE STSUMM 
  2. *-----------------------------------------------------------------------
  3. *   
  4. *--- Prints statement count summary 
  5. *   
  6. *-----------------------------------------------------------------------
  7.       include 'PARAM.h' 
  8.       include 'ALCAZA.h' 
  9.       include 'FLWORK.h' 
  10.       include 'JOBSUM.h' 
  11.       include 'CLASS.h' 
  12.       DIMENSION IREF(3,MXSTAT),IOUT(4,2)
  13.       EQUIVALENCE (IREF(1,1),IWS(1))
  14.       DO 10 I=1,NCLASS  
  15.          DO 10 J=1,3
  16.    10 IREF(J,I)=0   
  17. *--- collect references to external classes 
  18.       DO 20 I=1,NCLASS  
  19.          K=ISTMDS(6,I)  
  20.          IREF(1,K)=I
  21.          IREF(2,K)=IREF(2,K)+NFDCLS(I,1)
  22.          IREF(3,K)=IREF(3,K)+NFDCLS(I,2)
  23.    20 CONTINUE  
  24.       WRITE (MPUNIT,10000)  
  25.       N=0   
  26.       DO 30 I=1,NCLASS  
  27.          K=IREF(1,I)
  28.          IF (K.NE.0)  THEN  
  29.             N=N+1   
  30.             IOUT(1,N)=I 
  31.             IOUT(2,N)=IREF(2,I) 
  32.             IOUT(3,N)=IREF(3,I) 
  33.             IOUT(4,N)=K 
  34.             IF (N.EQ.2)  THEN   
  35.                N=0  
  36.                WRITE (MPUNIT,10010) IOUT(1,1),SNAM(ISTMDS(1,IOUT(4,1)): 
  37.      +         ISTMDS(2,IOUT(4,1))),IOUT(2,1),IOUT(3,1),IOUT(1,2),SNAM( 
  38.      +         ISTMDS(1,IOUT(4,2)):ISTMDS(2,IOUT(4,2))),IOUT(2,2),IOUT  
  39.      +         ( 3,2)   
  40.             ENDIF   
  41.          ENDIF  
  42.    30 CONTINUE  
  43.       IF(N.GT.0)  THEN  
  44.          WRITE (MPUNIT,10010) IOUT(1,1),SNAM(ISTMDS(1,IOUT(4,1)):ISTMDS(
  45.      +   2,IOUT(4,1))),IOUT(2,1),IOUT(3,1)  
  46.       ENDIF 
  47. 10000 FORMAT('1',10('----'),' Summary for filtered statements ', 10(
  48.      +'----')// 
  49.      +' Except for ILLEGAL (all occurrences in filtered routines),',
  50.      +' only filtered statements counted.'/ 
  51.      +' There are two types of counts, 1 = overall occurence, ',
  52.      +'2 = behind logical IF'// ' number',15X,'name',T41,   
  53.      +' count-1 count-2', T61,' number',15X,'name',T101,
  54.      +' count-1 count-2'/)  
  55. 10010 FORMAT(1X,I6,4X,A29,2I8,T61,1X,I6,4X,A29,2I8) 
  56.       END   
  57.